home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 19
/
Mac Magazin and MacEasy Magazine CD - Issue 19.iso
/
Grafik & Text & Film
/
Quark XTensions
/
Freeware Xtensions
/
XPress Scripts 1.0
/
Delete Guides
/
Delete Guides
next >
Wrap
Text File
|
1994-08-10
|
887b
|
34 lines
tell application "QuarkXPress 3.3"
activate
if document 1 exists then
tell document 1
copy name to docName
copy (display dialog "Delete all guides in:" & return & "'" & docName & "'?" with icon 2000) to x
do updates
if button returned of x is "OK" then
tell every spread
if every vertical guide exists then
delete every vertical guide
end if
if every horizontal guide exists then
delete every horizontal guide
end if
end tell
tell every page
if every vertical guide exists then
delete every vertical guide
end if
if every horizontal guide exists then
delete every horizontal guide
end if
end tell
end if
end tell
else
beep
display dialog "This script requires an" & return & "open QuarkXPress document." buttons "OK" default button 1 with icon 1
do updates
end if
end tell